home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / port_2 / graph / sinus.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-22  |  559 b   |  36 lines
  1. program Sinus;
  2.  
  3. uses
  4.   dos,pfcrt,pfgraph;
  5.  
  6. const
  7.   sinfaktor           = 0.0174533;
  8.  
  9. var
  10.   x,y   : integer;
  11.   y2    : integer;
  12.   ch    : char;
  13.   gd,gm : integer;
  14.  
  15. begin
  16.   initgraph;
  17.   aktf:= 1;
  18.   setfont(2);
  19.   outtextxy(120,0,'Sinuskurve');
  20.   for x:= 0 to 79 do
  21.     putpixel(x*3,32,1);
  22.   for y:= 0 to 21 do
  23.     putpixel(0,y*3,1);
  24.   y:= 32;
  25.   for x:= 1 to 239 do
  26.   begin
  27.     y2:= -round(sin((x*1.5)*sinfaktor)*31);
  28.     inc(y2,32);
  29.     line(x-1,y,x,y2);
  30.     y:= y2;
  31.   end;
  32.   ch:= readkey;
  33.   closegraph;
  34.   textmode(c80);
  35. end.
  36. ə